home *** CD-ROM | disk | FTP | other *** search
/ Leonardo the Inventor / Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso / LEOWINMV / FORTGAME.DIR / 00274_Script_Viola < prev    next >
Text File  |  1996-03-20  |  2KB  |  65 lines
  1. on resetViolaRoomCursors
  2.   set the cursor of sprite 7 = -1
  3.   set the cursor of sprite 8 = -1
  4.   set the cursor of sprite 9 = -1
  5.   set the cursor of sprite 10 = -1
  6.   set the cursor of sprite 11 = -1
  7.   set the cursor of sprite 12 = -1
  8.   set the cursor of sprite 18 = -1
  9.   set the cursor of sprite 19 = -1
  10.   global roomBackwardCursor
  11.   set the cursor of sprite 20 = roomBackwardCursor
  12.   global keySprite, grabObjectCursor
  13.   set the cursor of sprite KeySprite = grabObjectCursor
  14. end resetViolaRoomCursors
  15.  
  16. on leaveViolaRoom
  17.   global roomBackwardCursor
  18.   set the cursor of sprite 20 = -1
  19.   resetCursors
  20. end leaveViolaRoom
  21.  
  22. on enterViolaRoom
  23.   global PlayViolaCursor
  24.   set the cursor of sprite 7 = PlayViolaCursor
  25.   set the cursor of sprite 8 = PlayViolaCursor
  26.   set the cursor of sprite 9 = PlayViolaCursor
  27.   set the cursor of sprite 10 = PlayViolaCursor
  28.   set the cursor of sprite 11 = PlayViolaCursor
  29.   set the cursor of sprite 12 = PlayViolaCursor
  30.   set the cursor of sprite 18 = PlayViolaCursor
  31.   set the cursor of sprite 19 = PlayViolaCursor
  32.   
  33.   global roomBackwardCursor
  34.   set the cursor of sprite 20 = roomBackwardCursor
  35. end enterViolaRoom
  36.  
  37.  
  38. on clearViolaNotes
  39.   global violaNotes
  40.   put empty into violaNotes
  41. end clearViolaNotes
  42.  
  43. on appendViolaNote note
  44.   global violaNotes
  45.   if not (violaNotes = empty) then put return after violaNotes
  46.   put note after violaNotes
  47.   checkViolaNotes
  48. end appendViolaNote
  49.  
  50. on checkViolaNotes
  51.   global violaNotes
  52.   put the number of lines in violaNotes into numLines
  53.   if numLines < 5 then exit
  54.   
  55.   put line (numLines - 4) to numLines of violaNotes into testNotes
  56.   if testNotes = field "CorrectNotes" then
  57.     solvedViola
  58.   end if
  59. end checkViolaNotes
  60.  
  61. on solvedViola
  62.   dissolve 4
  63.   go frame "Solved Viola"
  64. end solvedViola
  65.